{smcl}
{com}{sf}{ul off}{txt}{.-}
      name:  {res}<unnamed>
       {txt}log:  {res}F:\fiscal research\mayor\PSRM data\PSRM_descstat2_log.smcl
  {txt}log type:  {res}smcl
 {txt}opened on:  {res}19 Dec 2023, 10:05:58
{txt}
{com}. 
. ** Log file for Analysis: Table B.3, Figure 2, Figure 3, Figure A.2, Figure A.3 **
. 
. 
. 
. 
. * Table B.3
. tabstat fed_act_yr_city_2012_pc mayor_pres_party strong_mayor_pres_party mayor_pres_gover_party str_mayor_pres_gover_party pres_elec_yr tot_pop income_pc pov_rate, col(stat) stat(n min max mean sd)

{txt}{ralign 12:variable} {...}
{c |}         N       min       max      mean        sd
{hline 13}{c +}{hline 50}
{ralign 12:fed_act~2_pc} {...}
{c |}{...}
 {res}     8328 -47.18482  2852.289   15.8597  51.69907
{txt}{ralign 12:mayo~s_party} {...}
{c |}{...}
 {res}     8620         0         1  .4451276  .4970087
{txt}{ralign 12:strong_may~y} {...}
{c |}{...}
 {res}     8620         0         1  .1726218  .3779419
{txt}{ralign 12:mayo~r_party} {...}
{c |}{...}
 {res}     8620         0         1  .2339907  .4233909
{txt}{ralign 12:str_mayor_~y} {...}
{c |}{...}
 {res}     8620         0         1  .0961717  .2948437
{txt}{ralign 12:pres_elec_yr} {...}
{c |}{...}
 {res}     8620         0         1  .2529002  .4346995
{txt}{ralign 12:tot_pop} {...}
{c |}{...}
 {res}     8328     38989   8560072    191162  456600.5
{txt}{ralign 12:income_pc} {...}
{c |}{...}
 {res}     8328     10544     93085  28070.69  9092.925
{txt}{ralign 12:pov_rate} {...}
{c |}{...}
 {res}     8022  .0090554  .3092537  .0766316  .0395542
{txt}{hline 13}{c BT}{hline 50}

{com}. 
. 
. 
. 
. gen city_name_st = city_name + " (" + stabbr + ")"
{txt}
{com}. 
. * Figure 2
. sort primary_place_of_performance_cit
{txt}
{com}. 
. graph bar fed_act_city_mil if fed_act_city_mil>250 & !missing(fed_act_city_mil), ///
> over (city_name_st, label(labsize(vsmall) angle(65)) sort(fed_act_city_mil) descending) ///
> legend(label(1 "Grant")) ylabel(,labsize(small)) ytitle("") ///
> ytitle("Grant ($ million)") b1title("City") 
{res}{txt}
{com}. graph export "${c -(}work{c )-}\desc stat\grant_city.png", as(png) replace
{txt}(file F:\fiscal research\mayor\grant\desc stat\grant_city.png written in PNG format)

{com}. 
. 
. * Figure 3-(a)
. graph bar fed_act_yr_city_pc if year==2019 & fed_act_yr_city_2012_pc>80 & !missing(fed_act_yr_city_2012_pc), ///
> over (city_name_st, label(labsize(vsmall) angle(65)) sort(fed_act_yr_city_2012_pc) descending) ///
> legend(label(1 "Grant")) ylabel(,labsize(small)) ytitle("") ///
> ytitle("Grant ($ Per Capita)") b1title("City") 
{res}{txt}
{com}. graph export "${c -(}work{c )-}\desc stat\grant_city_pc_fy2020.png", as(png) replace
{txt}(file F:\fiscal research\mayor\grant\desc stat\grant_city_pc_fy2020.png written in PNG format)

{com}. 
. 
. * Figure 3-(b)
. graph bar fed_act_yr_city_pc if year==2020 & fed_act_yr_city_2012_pc>80 & !missing(fed_act_yr_city_2012_pc), ///
> over (city_name_st, label(labsize(vsmall) angle(65)) sort(fed_act_yr_city_2012_pc) descending) ///
> legend(label(1 "Grant")) ylabel(,labsize(small)) ytitle("") ///
> ytitle("Grant ($ Per Capita)") b1title("City") 
{res}{txt}
{com}. graph export "${c -(}work{c )-}\desc stat\grant_city_pc_fy2021.png", as(png) replace
{txt}(file F:\fiscal research\mayor\grant\desc stat\grant_city_pc_fy2021.png written in PNG format)

{com}. 
. 
. * Housing
. 
. gen fed_act_house_yr_mil=fed_act_house_yr/1000000
{txt}(116 missing values generated)

{com}. 
. gen fed_act_house_city_mil=fed_act_house_city/1000000
{txt}(405 missing values generated)

{com}. 
. sort year city_name
{txt}
{com}. 
. * Figure A.2-(a)
. graph bar fed_act_house_city_mil if fed_act_house_city_mil>30 & !missing(fed_act_house_city_mil), ///
> over (city_name_st, label(labsize(vsmall) angle(65)) sort(fed_act_house_city_mil) descending) ///
> legend(label(1 "Grant")) ylabel(,labsize(small)) ytitle("") ///
> ytitle("Grant ($ million)") b1title("City") 
{res}{txt}
{com}. graph export "${c -(}work{c )-}\desc stat\grant_city_house.png", as(png) replace
{txt}(file F:\fiscal research\mayor\grant\desc stat\grant_city_house.png written in PNG format)

{com}. 
. 
. bysort geo_fips: egen sum_fed_act_house_yr_city_pc=total(fed_act_house_yr_city_pc) if !missing(fed_act_house_yr_city_pc)
{txt}(404 missing values generated)

{com}. 
. * Figure A.2-(b)
. graph bar sum_fed_act_house_yr_city_pc if sum_fed_act_house_yr_city_pc>100 & !missing(sum_fed_act_house_yr_city_pc), ///
> over (city_name_st, label(labsize(vsmall) angle(65)) sort(sum_fed_act_house_yr_city_pc) descending) ///
> legend(label(1 "Grant")) ylabel(,labsize(small)) ytitle("") ///
> ytitle("$") b1title("City") 
{res}{txt}
{com}. graph export "${c -(}work{c )-}\desc stat\grant_city_house_pc.png", as(png) replace
{txt}(file F:\fiscal research\mayor\grant\desc stat\grant_city_house_pc.png written in PNG format)

{com}. 
. 
. * Transportation
. gen fed_act_transport_yr_mil=fed_act_transport_yr/1000000
{txt}(116 missing values generated)

{com}. 
. gen fed_act_transport_city_mil=fed_act_transport_city/1000000
{txt}(405 missing values generated)

{com}. 
. sort year city_name
{txt}
{com}. 
. * Figure A.3-(a)
. graph bar fed_act_transport_city_mil if fed_act_transport_city_mil>100 & !missing(fed_act_transport_city_mil), ///
> over (city_name_st, label(labsize(vsmall) angle(65)) sort(fed_act_transport_city_mil) descending) ///
> legend(label(1 "Grant")) ylabel(,labsize(small)) ytitle("") ///
> ytitle("Grant ($ million)") b1title("City") 
{res}{txt}
{com}. graph export "${c -(}work{c )-}\desc stat\grant_city_transportation.png", as(png) replace
{txt}(file F:\fiscal research\mayor\grant\desc stat\grant_city_transportation.png written in PNG format)

{com}. 
. 
. bysort geo_fips: egen sum_fed_act_trans_yr_city_pc=total(fed_act_trans_yr_city_pc) if !missing(fed_act_trans_yr_city_pc)
{txt}(404 missing values generated)

{com}. 
. * Figure A.3-(b)
. graph bar sum_fed_act_trans_yr_city_pc if sum_fed_act_trans_yr_city_pc>400 & !missing(sum_fed_act_trans_yr_city_pc), ///
> over (city_name_st, label(labsize(vsmall) angle(65)) sort(sum_fed_act_trans_yr_city_pc) descending) ///
> legend(label(1 "Grant")) ylabel(,labsize(small)) ytitle("") ///
> ytitle("$") b1title("City") 
{res}{txt}
{com}. graph export "${c -(}work{c )-}\desc stat\grant_city_transportation_pc.png", as(png) replace
{txt}(file F:\fiscal research\mayor\grant\desc stat\grant_city_transportation_pc.png written in PNG format)

{com}. 
. 
.  
. log close
      {txt}name:  {res}<unnamed>
       {txt}log:  {res}F:\fiscal research\mayor\PSRM data\PSRM_descstat2_log.smcl
  {txt}log type:  {res}smcl
 {txt}closed on:  {res}19 Dec 2023, 10:06:06
{txt}{.-}
{smcl}
{txt}{sf}{ul off}